home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 January / 1992-01.d64 / ms demo 3 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  383b  |  19 lines
  1. 10 sys 49152
  2. 20 v1=53153:v2=53201
  3. 30 c1=0
  4. 40 c2=0
  5. 100 print chr$(5);chr$(147);
  6. 110 print "1st color=";c1
  7. 120 print "2nd color=";c2
  8. 122 print
  9. 123 print "press 1 to increment 1st color"
  10. 124 print "press 2 to increment 2nd color"
  11. 125 print "press q to quit"
  12. 130 poke v1+32,c1:poke v1+33,c1
  13. 140 poke v2+32,c2:poke v2+33,c2
  14. 150 get a$
  15. 160 if a$="1" then c1=c1+1 and 15:goto 100
  16. 170 if a$="2" then c2=c2+1 and 15:goto 100
  17. 175 if a$="q" then end
  18. 180 goto 150
  19.